﻿Imports System.IO
Public Class frmThemCTPhim

    Private Sub frmThemCTPhim_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        txtMaPhim.Text = frmAdminForm.maPhim
    End Sub

    Private Sub bntOpen_Click(sender As System.Object, e As System.EventArgs) Handles bntOpen.Click
        ofdHinhAnh.ShowDialog()
        txtHinhAnh.Text = ofdHinhAnh.FileName
        picHinhAnh.Image = Image.FromFile(txtHinhAnh.Text)
    End Sub

    Private Sub bntKetThuc_Click(sender As System.Object, e As System.EventArgs) Handles bntKetThuc.Click
        Me.Close()
    End Sub

    Private Sub bntThemPhim_Click(sender As System.Object, e As System.EventArgs) Handles bntThemPhim.Click
        If (txtDaoDien.Text = "" Or txtHinhAnh.Text = "" Or txtMaPhim.Text = "" Or txtNamSanXuat.Text = "" Or txtQuocGia.Text = "" Or txtThoiLuong.Text = "") Then
            MessageBox.Show("Bạn Không thể thêm vì chưa điền đầy đủ thông tin", "Thông Báo Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            Dim nam As Integer = DateTime.Now.Year
            If (Integer.Parse(txtNamSanXuat.Text) > nam) Then
                MessageBox.Show("Năm Sản Xuất Của Phim Không được lớn hơn năm hiện tại", "Thông Báo Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Else
                ThemCTPhim()
                frmAdminForm.loadCTPhim()
            End If
        End If

    End Sub
#Region "Các hàm xử lí"
    'Thêm Chi Tiết Phim'
    Sub ThemCTPhim()
        Dim file As New FileInfo(ofdHinhAnh.FileName)
        Try
            file.CopyTo(Application.StartupPath + "\HinhAnh\" + ofdHinhAnh.SafeFileName)
            Dim ctphim As New ChiTietPhimDTO
            ctphim = getinfo()
            ChiTietPhimBUS.ThemCTPhim(ctphim)
        Catch ex As Exception
            MessageBox.Show("File đã tồn tại, bạn không thể thêm")
        End Try
    End Sub

    'Lấy thông tin từ form vào biến ChiTietPhim
    Function getinfo() As ChiTietPhimDTO
        Dim ctphim As New ChiTietPhimDTO
        ctphim.hinhAnh = ofdHinhAnh.SafeFileName
        ctphim.maPhim = txtMaPhim.Text
        ctphim.namSanXuat = Integer.Parse(txtNamSanXuat.Text)
        ctphim.quocGia = txtQuocGia.Text
        ctphim.thoiLuong = Integer.Parse(txtThoiLuong.Text)
        ctphim.daoDien = txtDaoDien.Text
        Return ctphim
    End Function

#End Region

    Private Sub txtNamSanXuat_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtNamSanXuat.KeyPress
        If (Not Char.IsNumber(e.KeyChar) AndAlso Not Char.IsControl(e.KeyChar)) Then
            e.Handled = True
        End If
    End Sub

    Private Sub txtThoiLuong_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtThoiLuong.KeyPress
        If (Not Char.IsNumber(e.KeyChar) AndAlso Not Char.IsControl(e.KeyChar)) Then
            e.Handled = True
        End If
    End Sub
End Class